home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / source / retinasource.lha / RBO_SCode.lha / Include / exec / initializers.i < prev    next >
Text File  |  1993-05-03  |  474b  |  41 lines
  1.     IFND    EXEC_INITIALIZERS_I
  2. EXEC_INITIALIZERS_I    =    1
  3. INITBYTE    MACRO
  4.     DC.B    $e0
  5.     DC.B    0
  6.     DC.W    \1
  7.     DC.B    \2
  8.     DC.B    0
  9.     ENDM
  10. INITWORD    MACRO
  11.     DC.B    $d0
  12.     DC.B    0
  13.     DC.W    \1
  14.     DC.W    \2
  15.     ENDM
  16. INITLONG    MACRO
  17.     DC.B    $c0
  18.     DC.B    0
  19.     DC.W    \1
  20.     DC.L    \2
  21.     ENDM
  22. INITSTRUCT    MACRO
  23.     DS.W    0
  24.     IFC    '\4',''
  25. COUNT\@    SET    0
  26.     ENDC
  27.     IFNC    '\4',''
  28. COUNT\@    SET    \4
  29.     ENDC
  30. CMD\@    SET    [[\1]<<4]!COUNT\@
  31.     IFLE    [\2]-255
  32.     DC.B    [CMD\@]!$80
  33.     DC.B    \2
  34.     MEXIT
  35.     ENDC
  36.     DC.B    CMD\@!$0C0
  37.     DC.B    [[\2]>>16]&$0FF
  38.     DC.W    [\2]&$0FFFF
  39.     ENDM
  40.     ENDC
  41.